n_0 =

λ =

s_0 =

T =

t =

Kopplung

Kurve

Punkte

Transversale Schwingungen 2

Version Stand
02.11.2020
Andreas Jäger

Stand

Einzelschwingungen

1

2

0

10

5

<

>

Geschwindigkeit

L0: ((3 * 4) * π)
l = 6.283185307179586 (slider from 0 to (6 * π), step π / 10)
Pl: (l, 0)
k: (2 * π / l)
s_0 = 2 (slider from 0 to 3, step 0.01)
S_0: (0, s_0)
T = 5 (slider from 1 to 5, step 1)
w: (2 * π / T)
t: 0
n0 = 10 (slider from 2 to 96, step 1)
Liste1 = Sequence(((i * L0 / n0), (s_0 * sin((w * t) - ((k * i) * L0 / n0)))), i, 0, n0)
f(x) = If[0 ≤ x ≤ L0, (s_0 * sin((w * t) - (k * x)))]
Liste2 = Sequence(Segment[(((i - 1) * L0 / n0), (s_0 * sin((w * t) - ((k * (i - 1)) * L0 / n0)))), ((i * L0 / n0), (s_0 * sin((w * t) - ((k * i) * L0 / n0))))], i, 1, n0)
Eingabefeld1 = Textfield(n0)
Eingabefeld2 = Textfield(l)
Eingabefeld3 = Textfield(s_0)
Eingabefeld4 = Textfield(T)
Eingabefeld5 = Textfield(t)
a: false
b: false
c = false
d = false
Liste3 = Sequence(((i * L0 / n0), 0), i, 0, n0)
Liste4 = Sequence(((i * L0 / n0), 0), i, 0, n0)
Liste5 = Sequence(Segment[((i * L0 / n0), (-s_0)), ((i * L0 / n0), s_0)], i, 0, n0)
e: false
cc: ((w) / ((2 * π)) * l)
A: ((t * cc) + (3 * l / 4), s_0)
nn: 0
Text3: "t = " + (LaTeX[t]) + "\ s\cr
\Delta x =" + (LaTeX[(3 * l / 4)]) + "\ m- " + (LaTeX[x(A)]) + "\ m=  " + (LaTeX[(t * cc)]) + "\ m \cr
c = " + (LaTeX[cc]) + "\ {m\over s}"
g: false
PPP: ((10 * L0 / n0), (s_0 * sin((w * t) - ((k * 10) * L0 / n0))))